home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1997 July / PC Pro July 1997.iso / essentia.ls / INTERNET / 32bit / AMEOL95 / FTPDIR.SC_ / FTPDIR.SC
Encoding:
Text File  |  1995-01-16  |  1.7 KB  |  68 lines
  1. REM FTPDIR.SCR v1.12 "Get FTP site directory"
  2. REM Contributed by mentha@cix
  3. REM Ameol script to list the files in a user-specified directory on an
  4. REM arbitrary anonymous ftp site. When run, you need to specify:-
  5. REM 1. your PC filename in which to store the directory (eg dir.wri)
  6. REM 2. the ftp site name (eg world.std.com)
  7. REM 3. the ftp site's directory to list (try /pub initially).
  8. REM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  9. status "Requesting FTP directory..."
  10. put "run internet"
  11. if waitfor( "M:", "ip>" ) == 1
  12. put "ftp %s('Dir of FTP Site','Enter FTP Site Name:')"
  13. if waitfor("ftp>","):")==0
  14.  status "FTP connection failed."
  15.  put "quit"
  16.  waitfor "ip>"
  17.  put "quit"
  18.  waitfor "M:"
  19.  status ""
  20.  end
  21. endif
  22. REM Connection successful...
  23. put "anonymous"
  24. if waitfor("ftp>","assword:")==0
  25.  status "FTP site terminated connection."
  26.  put "quit"
  27.  waitfor "ip>"
  28.  put "quit"
  29.  waitfor "M:"
  30.  status ""
  31.  end
  32. endif
  33. putnocr name
  34. put "@cix.compulink.co.uk"
  35. waitfor "ftp>"
  36. put "prompt"
  37. waitfor "ftp>"
  38. put "ascii"
  39. waitfor "ftp>"
  40. status "Downloading from Site to Cix..."
  41. put "dir %s('Dir of FTP Site','Specify directory to list:\n(Try /pub or . if not known)') ftpdir.wri"
  42. waitfor "ftp>"
  43. put "quit"
  44. waitfor "ip>"
  45. put "dir ftpdir.wri"
  46. if waitfor("ip> ","              ^M^J ")==0
  47.  status "No FTP Dir to download."
  48.  put "quit"
  49.  waitfor "M:"
  50.  status ""
  51.  end
  52. endif
  53. REM Dir successful...
  54. waitfor "ip>"
  55. status "Receiving FTP Dir from Cix..."
  56. put "send ftpdir.wri"
  57. pause 200
  58. download "%fs('Save Dir of FTP Site As','0','FTP Directory (*.wri)\f*.wri\f')"
  59. status "FTP Dir received."
  60. pause 200
  61. put "erase ftpdir.wri"
  62. waitfor "ip>"
  63. put "quit"
  64. waitfor "M:"
  65. endif
  66. status ""
  67. end
  68.